VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CuentaCorrientePrestamista"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''
''  CuentaCorrientePrestamista.cls
''  Implementation of the table Class CuentaCorrientePrestamista
''  Generated by Enterprise Architect
''  Created on:      15-Abr-2009 08:05:37 p.m.
''  Original author: Administrador
''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



'Public PK_Pagador As Pagador
Private m_ccpCodigo As Integer
Private m_ccpNumeroMovimiento As Integer
Private m_ccpPagCodigo As Integer
Private m_ccpDebe As Single
Private m_ccpHaber As Single
Private m_ccpSaldo As Single
Private m_ccpMotivo As String
Private m_ccpFecha As Date
Private m_ccpCodigoCredito As Integer
Private m_ccpNumeroCuota As Integer

Public Property Get ccpCodigo() As Integer
    ccpCodigo = m_ccpCodigo
End Property
Public Property Let ccpCodigo(ByVal inNew As Integer)
    If (m_ccpCodigo = inNew) Then Exit Property
    m_ccpCodigo = inNew
End Property

Public Property Get ccpNumeroMovimiento() As Integer
    ccpNumeroMovimiento = m_ccpNumeroMovimiento
End Property
Public Property Let ccpNumeroMovimiento(ByVal inNew As Integer)
    If (m_ccpNumeroMovimiento = inNew) Then Exit Property
    m_ccpNumeroMovimiento = inNew
End Property

Public Property Get ccpPagCodigo() As Integer
    ccpPagCodigo = m_ccpPagCodigo
End Property
Public Property Let ccpPagCodigo(ByVal inNew As Integer)
    If (m_ccpPagCodigo = inNew) Then Exit Property
    m_ccpPagCodigo = inNew
End Property

Public Property Get ccpDebe() As Single
    ccpDebe = m_ccpDebe
End Property
Public Property Let ccpDebe(ByVal inNew As Single)
    If (m_ccpDebe = inNew) Then Exit Property
    m_ccpDebe = inNew
End Property

Public Property Get ccpHaber() As Single
    ccpHaber = m_ccpHaber
End Property
Public Property Let ccpHaber(ByVal inNew As Single)
    If (m_ccpHaber = inNew) Then Exit Property
    m_ccpHaber = inNew
End Property

Public Property Get ccpSaldo() As Single
    ccpSaldo = m_ccpSaldo
End Property
Public Property Let ccpSaldo(ByVal inNew As Single)
    If (m_ccpSaldo = inNew) Then Exit Property
    m_ccpSaldo = inNew
End Property

Public Property Get ccpMotivo() As String
    ccpMotivo = m_ccpMotivo
End Property
Public Property Let ccpMotivo(ByVal inNew As String)
    If (m_ccpMotivo = inNew) Then Exit Property
    m_ccpMotivo = inNew
End Property

Public Property Get ccpFecha() As Date
    ccpFecha = m_ccpFecha
End Property
Public Property Let ccpFecha(ByVal inNew As Date)
    If (m_ccpFecha = inNew) Then Exit Property
    m_ccpFecha = inNew
End Property

Public Property Get ccpCodigoCredito() As Integer
    ccpCodigoCredito = m_ccpCodigoCredito
End Property
Public Property Let ccpCodigoCredito(ByVal inNew As Integer)
    If (m_ccpCodigoCredito = inNew) Then Exit Property
    m_ccpCodigoCredito = inNew
End Property

Public Property Get ccpNumeroCuota() As Integer
    ccpNumeroCuota = m_ccpNumeroCuota
End Property
Public Property Let ccpNumeroCuota(ByVal inNew As Integer)
    If (m_ccpNumeroCuota = inNew) Then Exit Property
    m_ccpNumeroCuota = inNew
End Property




